string handling functions in perl